home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SOLAR / Vector Processors / Analyze / count-distribution < prev   
Text File  |  1998-10-23  |  737b  |  19 lines
  1. count-distribution vector
  2.  
  3. Counts the occurences of each number in a vector. The vector must contain positive integers 0 1 2 .. n. The output vector contains the occurences of each integer starting from 0.
  4.  
  5. NOTE: Keep the vector length reasonable! In 6 MB RAM you'll expect the Mac to crash if you are processing vector lengths greater than about 10 000. Few thousands seems safe. To process bigger vectors increase application's memory partition.
  6.  
  7. (count-distribution '#(1 1 2 2 3))
  8. --> #(0 2 2 1)
  9.  
  10. zero zeros
  11. two ones
  12. two twos
  13. one three
  14.  
  15. To count distributions of other than positive-integer vectors use vector-round to scale the vector into a suitable range.
  16.  
  17. (count-distribution 
  18.     (vector-round 0 100 (gen-noise-gaussian 10000)))
  19.